home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / front.lha / front / src / WriteTok.md < prev    next >
Text File  |  1992-08-18  |  654b  |  33 lines
  1. (* generate output procedure for tokens *)
  2.  
  3. (* $Id: WriteTok.md,v 1.3 1991/11/21 14:47:50 grosch rel $ *)
  4.  
  5. (* $Log: WriteTok.md,v $
  6.  * Revision 1.3  1991/11/21  14:47:50  grosch
  7.  * new version of RCS on SPARC
  8.  *
  9.  * Revision 1.2  90/06/11  18:45:51  grosch
  10.  * layout improvements
  11.  * 
  12.  * Revision 1.1     89/01/12  17:45:26  vielsack
  13.  * supply source file name
  14.  * 
  15.  * Revision 1.0     88/10/04  14:27:28  vielsack
  16.  * Initial revision
  17.  * 
  18.  *)
  19.  
  20. DEFINITION MODULE WriteTok;
  21.  
  22.   FROM IO IMPORT tFile;
  23.  
  24.   TYPE tLanguage = ( Modula2, C );
  25.   
  26.   VAR
  27.     Language  : tLanguage;
  28.     SourceFileName : ARRAY [0..255] OF CHAR;
  29.  
  30.   PROCEDURE GenWrTo (f : tFile);
  31.  
  32. END WriteTok.
  33.